home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wclass21.zip / PASUSER.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-16  |  663b  |  29 lines
  1. {This program file may be used with Object
  2. Pascal code generated from pascar.omt.
  3. Run the script pascal1.sct with the file
  4. extension pas. Then compile
  5. the following generated unit files:
  6. VehicleU.pas, MotorUn.pas, CellulaU.pas,
  7. PassengU.pas, TireUnit.pas, CarUnit.pas,
  8. and pasuser.pas.
  9. }
  10.  
  11. Program Pasuser;
  12.  
  13. uses CarUnit;
  14.  
  15. Var
  16.   Number : Integer;
  17.   Car1 : Car;
  18.   Car2 : Car;
  19. begin
  20.   Car1.DefaultInit;
  21.   Number := Car1.GetGasQuantity;
  22.   WriteLn ('The gas quantity is ', Number);
  23.   Car2.Init (15, 20);
  24.   Number := Car2.GetGasQuantity;
  25.   WriteLn ('The gas quantity is ', Number);
  26.   Car1.Copy (Car2);
  27.   Car1.Operate (55, 15, Number);
  28. end.
  29.